Amiga Format CD 36/Amiga Format CD36 (1999-01-22)(Future Publishing)(GB)[!][issue 1999-02].iso/-websites-/sasg/dfa/rexx/filofaxascii.lzh/filofaxascii.dfa

Text File | 1995-10-26 | 10.3 KB | 612 lines

/* $Revision Header built automatically *************** (do not edit) ************
**
** © Copyright by Dirk Federlein
**
** File             : FiloFaxTeX.dfa
** Created on       : Dienstag, 25.10.94 21:40:03
** Created by       : Dirk Federlein
** Current revision : V1.0
**
**
** Purpose
** -------
**     Outputs one or more ASCII files, each containing 4 DinA6 pages
**     with formatted addresses.
**
**     Adresses with another starting letter with the predecessors get a new
**     page.
**
**     The pages may be copied to the printer (prt:/par:) using the usual copy
**     command.
**
**     Each A4-page contains 96x84 chars.
**
**     This script needs DFA v2.5 and above to run properly.
**
*********************************************************************************/

tabchar = '09'X
cr  = '0A'X

outbody     = 'RAM:DFASheet_'
outext      = '.txt'

options results

if ~show(ports, DFA) then
    exit 10

address "DFA"

/* Init "page" 1 */

page1.  = ""

/* Init page #2 */

page2.  = ""

/* Init page #3 */

page3.  = ""

/* Init page #4 */

page4.  = ""

/* Clear address buffer */

tmpadr.0 = "" /* First Name / Name */
tmpadr.1 = "" /* Street */
tmpadr.2 = "" /* ZIP City */
tmpadr.3 = "" /* Phone */
tmpadr.4 = "" /* Fax. - if available */
tmpadr.5 = "" /* Comment - if available */

pageitems = 0
pagelines = 0
pagenum = 1
currentline = 0

maxpagelines = 40   /* Max. lines per (A6) page */
leftoffset = 8      /* left offset */
maxlinelen = 46     /* Max. chars per (A6) line */
pageskip = 5        /* Skip between the upper and the lower 2 A6 pages */

skipnext = 0

sheetnum = 1
outname = outbody||sheetnum||outext

gui input off output off

FIRST STEM ADR.

CurrentLetter   = left(ADR.ADDRESS.2,1)
LastLetter      = left(ADR.ADDRESS.2,1)

do while RC = 0

        /* Init all strings... */

    tmpadr. = ""
    ready = 0
    adritem = 0
    fmtline = 0

    do while ready = 0

            /* <FIRST NAME> */

        if adritem = 1 then
        do
            if ADR.ADDRESS.adritem ~= "" then
                tmpadr.fmtline = ADR.ADDRESS.adritem
        end

            /* <SURNAME> */

        if adritem = 2 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                if tmpadr.fmtline ~= "" then
                    tmpadr.fmtline = tmpadr.fmtline ADR.ADDRESS.adritem
                else
                    tmpadr.fmtline = ADR.ADDRESS.adritem
            end

            if tmpadr.fmtline ~= "" then
                fmtline = fmtline+1

        end

            /* <STREET> */

        if adritem = 4 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                tmpadr.fmtline = ADR.ADDRESS.adritem

                fmtline = fmtline+1
            end
        end

            /* <ZIP> */

        if adritem = 5 then
        do
            if ADR.ADDRESS.adritem ~= "" then
                tmpadr.fmtline = ADR.ADDRESS.adritem

        end

            /* <CITY> */

        if adritem = 6 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                if tmpadr.fmtline ~= "" then
                    tmpadr.fmtline = tmpadr.fmtline ADR.ADDRESS.adritem
                else
                    tmpadr.fmtline = ADR.ADDRESS.adritem
            end

            if tmpadr.fmtline ~= "" then
                fmtline = fmtline+1

        end

            /* <COUNTRY> */

        if adritem = 8 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                if (index(UPPER(ADR.ADDRESS.adritem), "GERMANY") == 0) & (index(UPPER(ADR.ADDRESS.adritem), "DEUTSCHLAND") == 0) then
                do
                    tmpadr.fmtline = ADR.ADDRESS.adritem

                    fmtline = fmtline+1
                end
            end
        end

            /* <PHONE> */

        if adritem = 10 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                if index(ADR.ADDRESS.adritem, "|") = 0 then
                do
                    tmpadr.fmtline = "Tel." ADR.ADDRESS.adritem

                    fmtline = fmtline+1
                end
                else
                do
                    phonecnt = 0

                    /* START...'|' */

                    phonecnt = index(ADR.ADDRESS.adritem, "|")
                    tmpadr.fmtline = "Tel." left(ADR.ADDRESS.adritem,phonecnt-1)
                    fmtline = fmtline+1

                    phonecnt = phonecnt + 1

                    nextcnt = 0
                    do while index(ADR.ADDRESS.adritem, "|", phonecnt) ~= 0
                        nextcnt = index(ADR.ADDRESS.adritem, "|", phonecnt)
                        tmpadr.fmtline = "    " substr(ADR.ADDRESS.adritem, phonecnt, nextcnt-phonecnt)
                        fmtline = fmtline+1
                        phonecnt = nextcnt+1
                    end

                    /* '|'...END */

                    tmpadr.fmtline = "    " right(ADR.ADDRESS.adritem, LENGTH(ADR.ADDRESS.adritem)-phonecnt+1)
                    fmtline = fmtline+1
                end
            end
        end

            /* <FAX> */

        if adritem = 11 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                if index(ADR.ADDRESS.adritem, "|") = 0 then
                do
                    tmpadr.fmtline = "Fax." ADR.ADDRESS.adritem

                    fmtline = fmtline+1
                end
                else
                do
                    phonecnt = 0

                    /* START...'|' */

                    phonecnt = index(ADR.ADDRESS.adritem, "|")
                    tmpadr.fmtline = "Fax." left(ADR.ADDRESS.adritem,phonecnt-1)
                    fmtline = fmtline+1

                    phonecnt = phonecnt + 1

                    nextcnt = 0
                    do while index(ADR.ADDRESS.adritem, "|", phonecnt) ~= 0
                        nextcnt = index(ADR.ADDRESS.adritem, "|", phonecnt)
                        tmpadr.fmtline = "    " substr(ADR.ADDRESS.adritem, phonecnt, nextcnt-phonecnt)
                        fmtline = fmtline+1
                        phonecnt = nextcnt+1
                    end

                    /* '|'...END */

                    tmpadr.fmtline = "    " right(ADR.ADDRESS.adritem, LENGTH(ADR.ADDRESS.adritem)-phonecnt+1)
                    fmtline = fmtline+1
                end
            end
        end

            /* <COMMENT> */

        if adritem = 15 then
        do
            if ADR.ADDRESS.adritem ~= "" then
            do
                tmpadr.fmtline = ADR.ADDRESS.adritem

                fmtline = fmtline+1
            end
        end

            /* Process next address item... */

        adritem = adritem+1


            /* Last item reached ? */

        if adritem>15 then
            ready = 1
    end

    addresslines = fmtline+1  /* fmtline count starts with zero */

    if CurrentLetter ~= LastLetter then
    do
        /* Fill empty lines of page 1 and page 3 */

        if pagenum = 1 then
        do
            i = currentline

            do while i < maxpagelines
                page1.i = INSERT(" ", page1.i, leftoffset, maxlinelen, " ")
                i = i+1
            end
        end

        if pagenum = 3 then
        do
            i = currentline

            do while i < maxpagelines
                page3.i = INSERT(" ", page3.i, leftoffset, maxlinelen, " ")
                i = i+1
            end
        end

        pagenum = pagenum + 1

        if pagenum > 4 then
        do
            /* Output all 4 pages... */

            if open('outfile', outname, 'W') = 0 then
            do
                gui input on output on

                exit 10
            end
            else
            do

                i = 0

                do while i < maxpagelines

                    numchars = writech('outfile', page1.i page2.i (cr))
                    i = i+1

                end

                i = 0

                do while i < pageskip

                    numchars = writech('outfile', (cr))
                    i = i+1

                end

                i = 0

                do while i < maxpagelines

                    numchars = writech('outfile', page3.i page4.i (cr))
                    i = i+1

                end

                call close 'outfile'

                sheetnum = sheetnum + 1
                outname = outbody||sheetnum||outext
            end

            currentline = 0
            pagenum = 1
            page1. = ""
            page2. = ""
            page3. = ""
            page4. = ""

        end
        pageitems = 0
        currentline = 0

    end

    pageitems = pageitems + 1

    if pagenum = 1 then
    do
        if (currentline + addresslines - 1) < maxpagelines then
        do
            linecnt = 0

            do while linecnt <= fmtline
                if tmpadr.linecnt ~= "" then
                do
                    page1.currentline = INSERT(tmpadr.linecnt, page1.currentline, leftoffset, maxlinelen, " ")
                    currentline = currentline + 1
                end

                linecnt = linecnt + 1
            end

            page1.currentline = INSERT(" ", page1.currentline, leftoffset, maxlinelen, " ")
            currentline = currentline +1

        end
        else
        do
            currentline = 0
            pageitems = 0
            pagenum = 2
        end


    end

    if pagenum = 2 then
    do
        if (currentline + addresslines - 1) < maxpagelines then
        do
            linecnt = 0

            do while linecnt <= fmtline
                if tmpadr.linecnt ~= "" then
                do
                    page2.currentline = INSERT(tmpadr.linecnt, page2.currentline, leftoffset, maxlinelen, " ")
                    currentline = currentline + 1
                end

                linecnt = linecnt + 1
            end

            page2.currentline = INSERT(" ", page2.currentline, leftoffset, maxlinelen, " ")
            currentline = currentline +1

        end
        else
        do
            pagenum = 3
            pageitems = 0
            currentline = 0
        end
    end

    if pagenum = 3 then
    do
        if (currentline + addresslines - 1) < maxpagelines then
        do
            linecnt = 0

            do while linecnt <= fmtline
                if tmpadr.linecnt ~= "" then
                do
                    page3.currentline = INSERT(tmpadr.linecnt, page3.currentline, leftoffset, maxlinelen, " ")
                    currentline = currentline + 1
                end

                linecnt = linecnt + 1
            end

            page3.currentline = INSERT(" ", page3.currentline, leftoffset, maxlinelen, " ")
            currentline = currentline +1

        end
        else
        do
            pagenum = 4
            pageitems = 0
            currentline = 0
        end
    end

    if pagenum = 4 then
    do
        if (currentline + addresslines - 1) < maxpagelines then
        do
            linecnt = 0

            do while linecnt <= fmtline
                if tmpadr.linecnt ~= "" then
                do
                    page4.currentline = INSERT(tmpadr.linecnt, page4.currentline, leftoffset, maxlinelen, " ")
                    currentline = currentline + 1
                end

                linecnt = linecnt + 1
            end

            page4.currentline = INSERT(" ", page4.currentline, leftoffset, maxlinelen, " ")
            currentline = currentline +1

        end
        else
        do
            /* Output this page to file...*/

            if open('outfile', outname, 'W') = 0 then
            do
                gui input on output on

                exit 10
            end
            else
            do
                i = 0

                do while i < maxpagelines

                    numchars = writech('outfile', page1.i page2.i (cr))
                    i = i+1

                end

                i = 0

                do while i < pageskip

                    numchars = writech('outfile', (cr))
                    i=i+1

                end

                i = 0

                do while i < maxpagelines

                    numchars = writech('outfile', page3.i page4.i (cr))
                    i = i+1

                end

                call close 'outfile'
                sheetnum = sheetnum + 1
                outname = outbody||sheetnum||outext
            end

            currentline = 0
            pageitems = 0
            pagenum = 1
            skipnext = 1
            page1. = ""
            page2. = ""
            page3. = ""
            page4. = ""

        end
    end

    if skipnext = 0 then
    do
        next stem adr.

        LastLetter      = CurrentLetter
        CurrentLetter   = left(ADR.ADDRESS.2,1)
    end
    else
        skipnext = 0
end

if (pageitems > 0) | (pagenum > 1) then
do

    /* Output all 4 pages... */

    if open('outfile', outname, 'W') = 0 then
    do
        gui input on output on

        exit 10
    end
    else
    do

        /* Fill empty lines of page 1 and page 3 */

        i = currentline

        if pagenum = 1 then
        do
            do while i < maxpagelines
                page1.i = INSERT(" ", page1.i, leftoffset, maxlinelen, " ")
                i = i+1
            end
        end

        if pagenum = 3 then
        do
            do while i < maxpagelines
                page3.i = INSERT(" ", page3.i, leftoffset, maxlinelen, " ")
                i = i+1
            end
        end


        i = 0

        do while i < maxpagelines

            numchars = writech('outfile', page1.i page2.i (cr))
            i = i+1

        end

        i = 0

        do while i < pageskip

            numchars = writech('outfile', (cr))
            i=i+1

        end

        i = 0

        do while i < maxpagelines

            numchars = writech('outfile', page3.i page4.i (cr))
            i = i+1

        end

        call close 'outfile'
   end
end

gui input on output on

exit